#!/bin/sh
# MetaCard 2.4 stack
# The following is not ASCII text,
# so now would be a good time to q out of more
exec mc $0 "$@"
                                                                                                                                  9 Order Form  X   on preOpenStack
    send "localiseStack"&&the short name of me to stack "languageSwitcher"
    set the title of this stack to localiseGetDisplayValue("tttt.title.choose")
end preOpenStack
  w        Black   ffffff      white       	darkgray     cStackVersion  2.1         )Ten Thumbs Typing Tutor - Forma d'ordine    	 " W Times   W 
Helvetica  W 
Helvetica   U 
Helvetica   U 
Helvetica  
 U ms sans serif  " W tahoma   U Tahoma   U Lucida Grande  cREVGeometryCache    stackID  1081 cREVGeneral    scriptChecksum  W5
$lxG
debugObjects   
bookmarks   handlerList  preOpenStacktempScript   prevHandler  preOpenStackscriptSelection  char 189 to 188script <p><font color="#980517">on </font>preOpenStack</p>
<p><font color="#0000FF">    send</font><font color="#68228B"> </font>&quot;localiseStack&quot;&amp;&amp;<font color="#000000">the</font><font color="#68228B"> </font><font color="#FF0000">short</font><font color="#68228B"> </font><font color="#FF0000">name</font><font color="#68228B"> </font>of<font color="#68228B"> </font><font color="#F88017">me</font><font color="#68228B"> </font>to<font color="#68228B"> </font>stack<font color="#68228B"> </font>&quot;languageSwitcher&quot;</p>
<p>    <font color="#0000FF">set </font>the <font color="#FF0000">title </font>of this stack to localiseGetDisplayValue<font color="#000000">(&quot;tttt.title.choose&quot;)</font></p>
<p><font color="#980517">end</font> preOpenStack</p>
<p></p>   car1002   	P
on tabKey
  send "updateFld" to me in 1 millisecond
  pass tabKey
end tabKey

on updateFld
  if "field" is word 1 of the focusedObject then select the text of the focusedObject
  if word 1 of the owner of the focusedObject is not "group" then exit updateFld
  if the top of the focusedObject > the bottom of group "form"-50 or the top of the focusedObject < the top of group "form"+50  then
    set the vscroll of group "form" to (the ttop of the focusedobject-the Top of group "form"-50)
  end if
end updateFld

on checkIfTheFieldsAreEmpty
  put "Name,Street,City,Country" into tList
  repeat for each item l in tList
    if fld l is empty then
      beep
      if l is "Name" then
        put localiseGetDisplayValue("warningOrder.youDidnot") && localiseGetDisplayValue("infoOrder.name") into tEmptyField
      else if l is "Street" then
        put localiseGetDisplayValue("warningOrder.youDidnot") && localiseGetDisplayValue("infoOrder.street") into tEmptyField
      else if l is "City" then
        put localiseGetDisplayValue("warningOrder.youDidnot") && localiseGetDisplayValue("infoOrder.city") into tEmptyField
      else if l is "Country" then
        put localiseGetDisplayValue("warningOrder.youDidnot") && localiseGetDisplayValue("infoOrder.country") into tEmptyField
      end if
       
      answer localiseGetDisplayValue("warningOrder.noName") && tEmptyField & "." with localiseGetDisplayValue("warningOrder.oops")
      --answer "You didn't enter your" && tEmptyField & "." with "Oops"
      select the text of fld l
      updateFld
      exit to metaCard
    end if
  end repeat
  if fld "email" is empty then
    --LOCALISE
    answer localiseGetDisplayValue("warningOrder.noEmail") with localiseGetDisplayValue("action.cancel") or localiseGetDisplayValue("action.ok")
    --answer "You haven't entered an email address.  Whilst this is not required, your registration will take much longer to reach you." with "Cancel" or "OK"
    if it is "Cancel" then
      select the text of fld "email"
      updateFld
      exit to metaCard
    end if
  end if
  if fld "number of copies" is empty then
    answer "You have not entered the number of copies you wish to purchase." with "Oops"
    select the text of fld "number of copies"
    updateFld
    exit to metaCard
  end if
end checkIfTheFieldsAreEmpty

on preOpenCard
  set the title of this stack to localiseGetDisplayValue("tttt.title.orderform")
  set the hilite of btn "VAT" to false
  if fld "number of copies" is 1 then
    if the seconds < 909878399 then
      put "16.95" into fld "total"
    else
      put "16.95" into fld "total"
    end if
  end if
end preOpenCard

on returnInField
end returnInField

on enterInField
end enterInField
               cREVGeometryCacheIDs    (1118755680437  10501118755680438  10761078839029845  10801118755680400  10031118755680401  10041118755680402  10771118755680403  10281118755680404  10601118755680405  10151118755680406  10161118755680407  10171118755680408  10181118755680410  10201118755680409  10191118755680411  10211118755680412  10221118755680413  10251118755680414  10271118755680415  10301118755680416  10311118755680417  10491118755680418  10631118755680419  10441118755680420  10241118755680421  10261118755680422  10291118755680423  10321118755680424  10341118755680425  10411118755680426  10431118755680427  10461118755680428  10471118755680429  10561118755680430  10661118755680431  10741118755680432  10641118755680433  10681118755680434  10711118755680435  10531118755680436  1067 cREVGeometrycache    order  
total  40 cREVGeneral    scriptChecksum  ѾT
 A⫊zG
bookmarks   breakPoints   handlerList  PtabKey
updateFld
checkIfTheFieldsAreEmpty
preOpenCard
returnInField
enterInFieldtempScript <p><font color="#980517">on</font> tabKey</p>
<p>  <font color="#0000FF">send</font> &quot;updateFld&quot; to <font color="#F88017">me</font> in 1 <font color="#F88017">millisecond</font></p>
<p>  <font color="#0000FF">pass</font> tabKey</p>
<p><font color="#980517">end</font> tabKey</p>
<p></p>
<p><font color="#980517">on</font> updateFld</p>
<p>  <font color="#980517">if</font> &quot;field&quot; is word 1 of the <font color="#F88017">focusedObject</font> <font color="#980517">then</font> <font color="#0000FF">select</font> the <font color="#FF0000">text</font> of the <font color="#F88017">focusedObject</font></p>
<p>  <font color="#980517">if</font> word 1 of the <font color="#FF0000">owner</font> of the <font color="#F88017">focusedObject</font> is not &quot;group&quot; <font color="#980517">then</font> <font color="#0000FF">exit</font> updateFld</p>
<p>  <font color="#980517">if</font> the <font color="#FF0000">top</font> of the <font color="#F88017">focusedObject</font> &gt; the <font color="#FF0000">bottom</font> of <font color="#0000FF">group</font> &quot;form&quot;-50 or the <font color="#FF0000">top</font> of the <font color="#F88017">focusedObject</font> &lt; the <font color="#FF0000">top</font> of <font color="#0000FF">group</font> &quot;form&quot;+50  <font color="#980517">then</font></p>
<p>    <font color="#0000FF">set</font> the <font color="#FF0000">vscroll</font> of <font color="#0000FF">group</font> &quot;form&quot; to (the ttop of the <font color="#F88017">focusedobject</font>-the <font color="#FF0000">Top</font> of <font color="#0000FF">group</font> &quot;form&quot;-50)</p>
<p>  <font color="#980517">end</font> <font color="#980517">if</font></p>
<p><font color="#980517">end</font> updateFld</p>
<p></p>
<p><font color="#980517">on</font> checkIfTheFieldsAreEmpty</p>
<p>  <font color="#0000FF">put</font> &quot;Name,Street,City,Country&quot; into tList</p>
<p>  <font color="#980517">repeat</font> <font color="#980517">for</font> each item l in tList</p>
<p>    <font color="#980517">if</font> fld l is empty <font color="#980517">then</font></p>
<p>      <font color="#0000FF">beep</font></p>
<p><font color="#0000FF">      </font><font color="#980517">if </font>l is &quot;Name&quot; <font color="#980517">then</font></p>
<p><font color="#980517">        </font><font color="#0000FF">put </font>localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.youDidnot&quot;) </font>&amp;&amp; localiseGetDisplayValue<font color="#000000">(&quot;infoOrder.name&quot;) </font>into tEmptyField</p>
<p><font color="#000000">      </font><font color="#980517">else if </font>l is &quot;Street&quot; <font color="#980517">then</font></p>
<p><font color="#980517">        </font><font color="#0000FF">put </font>localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.youDidnot&quot;)</font> &amp;&amp; localiseGetDisplayValue<font color="#000000">(&quot;infoOrder.street&quot;) </font>into tEmptyField</p>
<p>      <font color="#980517">else if </font>l is &quot;City&quot; <font color="#980517">then</font></p>
<p><font color="#980517">        </font><font color="#0000FF">put </font>localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.youDidnot&quot;)</font> &amp;&amp; localiseGetDisplayValue<font color="#000000">(&quot;infoOrder.city&quot;) </font>into tEmptyField</p>
<p>      <font color="#980517">else if </font>l is &quot;Country&quot; <font color="#980517">then</font></p>
<p><font color="#980517">        </font><font color="#0000FF">put </font>localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.youDidnot&quot;) </font>&amp;&amp; localiseGetDisplayValue<font color="#000000">(&quot;infoOrder.country&quot;) </font>into tEmptyField</p>
<p><font color="#980517">      end if</font></p>
<p>       </p>
<p><font color="#0000FF">      answer</font> localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.noName&quot;) </font>&amp;&amp; tEmptyField &amp; &quot;.&quot; <font color="#980517">with</font> localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.oops&quot;)</font></p>
<p><font color="#68228B">      --answer &quot;You didn't enter your&quot; &amp;&amp; tEmptyField &amp; &quot;.&quot; with &quot;Oops&quot;</font></p>
<p><font color="#0000FF">      select</font> the <font color="#FF0000">text</font> of fld l</p>
<p>      updateFld</p>
<p><font color="#0000FF">      exit</font> to metaCard</p>
<p><font color="#980517">    end</font> <font color="#980517">if</font></p>
<p><font color="#980517">  end</font> <font color="#980517">repeat</font></p>
<p><font color="#980517">  if</font> fld &quot;email&quot; is empty <font color="#980517">then</font></p>
<p><font color="#68228B">    --LOCALISE</font></p>
<p><font color="#0000FF">    answer</font> localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.noEmail&quot;)</font> <font color="#980517">with</font> localiseGetDisplayValue<font color="#000000">(&quot;action.cancel&quot;)</font> or localiseGetDisplayValue<font color="#000000">(&quot;action.ok&quot;)</font></p>
<p><font color="#68228B">    --answer &quot;You haven't entered an email address.  Whilst this is not required, your registration will take much longer to reach you.&quot; with &quot;Cancel&quot; or &quot;OK&quot;</font></p>
<p><font color="#980517">    if</font> it is &quot;Cancel&quot; <font color="#980517">then</font></p>
<p><font color="#0000FF">      select</font> the <font color="#FF0000">text</font> of fld &quot;email&quot;</p>
<p>      updateFld</p>
<p><font color="#0000FF">      exit</font> to metaCard</p>
<p><font color="#980517">    end</font> <font color="#980517">if</font></p>
<p><font color="#980517">  end</font> <font color="#980517">if</font></p>
<p><font color="#980517">  if</font> fld &quot;number of copies&quot; is empty <font color="#980517">then</font></p>
<p><font color="#0000FF">    answer</font> &quot;You have not entered the number of copies you wish to purchase.&quot; <font color="#980517">with</font> &quot;Oops&quot;</p>
<p><font color="#0000FF">    select</font> the <font color="#FF0000">text</font> of fld &quot;number of copies&quot;</p>
<p>    updateFld</p>
<p><font color="#0000FF">    exit</font> to metaCard</p>
<p><font color="#980517">  end</font> <font color="#980517">if</font></p>
<p><font color="#980517">end</font> checkIfTheFieldsAreEmpty</p>
<p></p>
<p><font color="#980517">on</font> preOpenCard</p>
<p>  <font color="#0000FF">set </font>the <font color="#FF0000">title </font>of this stack to localiseGetDisplayValue<font color="#000000">(&quot;tttt.title.orderform&quot;)</font></p>
<p>  <font color="#0000FF">set</font> the <font color="#FF0000">hilite</font> of btn &quot;VAT&quot; to false</p>
<p>  <font color="#980517">if</font> fld &quot;number of copies&quot; is 1 <font color="#980517">then</font></p>
<p>    <font color="#980517">if</font> the <font color="#F88017">seconds</font> &lt; 909878399 <font color="#980517">then</font></p>
<p>      <font color="#0000FF">put</font> &quot;&pound;16.95&quot; into fld &quot;total&quot;</p>
<p>    <font color="#980517">else</font></p>
<p>      <font color="#0000FF">put</font> &quot;&pound;16.95&quot; into fld &quot;total&quot;</p>
<p>    <font color="#980517">end</font> <font color="#980517">if</font></p>
<p>  <font color="#980517">end</font> <font color="#980517">if</font></p>
<p><font color="#980517">end</font> preOpenCard</p>
<p></p>
<p><font color="#980517">on</font> returnInField</p>
<p><font color="#980517">end</font> returnInField</p>
<p></p>
<p><font color="#980517">on</font> enterInField</p>
<p><font color="#980517">end</font> enterInField</p>prevHandler  checkIfTheFieldsAreEmptyscriptSelection  char 657 to 656script <p><font color="#980517">on</font> tabKey</p>
<p>  <font color="#0000FF">send</font> &quot;updateFld&quot; to <font color="#F88017">me</font> in 1 <font color="#F88017">millisecond</font></p>
<p>  <font color="#0000FF">pass</font> tabKey</p>
<p><font color="#980517">end</font> tabKey</p>
<p></p>
<p><font color="#980517">on</font> updateFld</p>
<p>  <font color="#980517">if</font> &quot;field&quot; is word 1 of the <font color="#F88017">focusedObject</font> <font color="#980517">then</font> <font color="#0000FF">select</font> the <font color="#FF0000">text</font> of the <font color="#F88017">focusedObject</font></p>
<p>  <font color="#980517">if</font> word 1 of the <font color="#FF0000">owner</font> of the <font color="#F88017">focusedObject</font> is not &quot;group&quot; <font color="#980517">then</font> <font color="#0000FF">exit</font> updateFld</p>
<p>  <font color="#980517">if</font> the <font color="#FF0000">top</font> of the <font color="#F88017">focusedObject</font> &gt; the <font color="#FF0000">bottom</font> of <font color="#0000FF">group</font> &quot;form&quot;-50 or the <font color="#FF0000">top</font> of the <font color="#F88017">focusedObject</font> &lt; the <font color="#FF0000">top</font> of <font color="#0000FF">group</font> &quot;form&quot;+50  <font color="#980517">then</font></p>
<p>    <font color="#0000FF">set</font> the <font color="#FF0000">vscroll</font> of <font color="#0000FF">group</font> &quot;form&quot; to (the ttop of the <font color="#F88017">focusedobject</font>-the <font color="#FF0000">Top</font> of <font color="#0000FF">group</font> &quot;form&quot;-50)</p>
<p>  <font color="#980517">end</font> <font color="#980517">if</font></p>
<p><font color="#980517">end</font> updateFld</p>
<p></p>
<p><font color="#980517">on</font> checkIfTheFieldsAreEmpty</p>
<p>  <font color="#0000FF">put</font> &quot;Name,Street,City,Country&quot; into tList</p>
<p>  <font color="#980517">repeat</font> <font color="#980517">for</font> each item l in tList</p>
<p>    <font color="#980517">if</font> fld l is empty <font color="#980517">then</font></p>
<p>      <font color="#0000FF">beep</font></p>
<p><font color="#0000FF">      </font><font color="#980517">if </font>l is &quot;Name&quot; <font color="#980517">then</font></p>
<p><font color="#980517">        </font><font color="#0000FF">put </font>localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.youDidnot&quot;) </font>&amp;&amp; localiseGetDisplayValue<font color="#000000">(&quot;infoOrder.name&quot;) </font>into tEmptyField</p>
<p><font color="#000000">      </font><font color="#980517">else if </font>l is &quot;Street&quot; <font color="#980517">then</font></p>
<p><font color="#980517">        </font><font color="#0000FF">put </font>localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.youDidnot&quot;)</font> &amp;&amp; localiseGetDisplayValue<font color="#000000">(&quot;infoOrder.street&quot;) </font>into tEmptyField</p>
<p>      <font color="#980517">else if </font>l is &quot;City&quot; <font color="#980517">then</font></p>
<p><font color="#980517">        </font><font color="#0000FF">put </font>localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.youDidnot&quot;)</font> &amp;&amp; localiseGetDisplayValue<font color="#000000">(&quot;infoOrder.city&quot;) </font>into tEmptyField</p>
<p>      <font color="#980517">else if </font>l is &quot;Country&quot; <font color="#980517">then</font></p>
<p><font color="#980517">        </font><font color="#0000FF">put </font>localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.youDidnot&quot;) </font>&amp;&amp; localiseGetDisplayValue<font color="#000000">(&quot;infoOrder.country&quot;) </font>into tEmptyField</p>
<p><font color="#980517">      end if</font></p>
<p>       </p>
<p><font color="#0000FF">      answer</font> localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.noName&quot;) </font>&amp;&amp; tEmptyField &amp; &quot;.&quot; <font color="#980517">with</font> localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.oops&quot;)</font></p>
<p><font color="#68228B">      --answer &quot;You didn't enter your&quot; &amp;&amp; tEmptyField &amp; &quot;.&quot; with &quot;Oops&quot;</font></p>
<p><font color="#0000FF">      select</font> the <font color="#FF0000">text</font> of fld l</p>
<p>      updateFld</p>
<p><font color="#0000FF">      exit</font> to metaCard</p>
<p><font color="#980517">    end</font> <font color="#980517">if</font></p>
<p><font color="#980517">  end</font> <font color="#980517">repeat</font></p>
<p><font color="#980517">  if</font> fld &quot;email&quot; is empty <font color="#980517">then</font></p>
<p><font color="#68228B">    --LOCALISE</font></p>
<p><font color="#0000FF">    answer</font> localiseGetDisplayValue<font color="#000000">(&quot;warningOrder.noEmail&quot;)</font> <font color="#980517">with</font> localiseGetDisplayValue<font color="#000000">(&quot;action.cancel&quot;)</font> or localiseGetDisplayValue<font color="#000000">(&quot;action.ok&quot;)</font></p>
<p><font color="#68228B">    --answer &quot;You haven't entered an email address.  Whilst this is not required, your registration will take much longer to reach you.&quot; with &quot;Cancel&quot; or &quot;OK&quot;</font></p>
<p><font color="#980517">    if</font> it is &quot;Cancel&quot; <font color="#980517">then</font></p>
<p><font color="#0000FF">      select</font> the <font color="#FF0000">text</font> of fld &quot;email&quot;</p>
<p>      updateFld</p>
<p><font color="#0000FF">      exit</font> to metaCard</p>
<p><font color="#980517">    end</font> <font color="#980517">if</font></p>
<p><font color="#980517">  end</font> <font color="#980517">if</font></p>
<p><font color="#980517">  if</font> fld &quot;number of copies&quot; is empty <font color="#980517">then</font></p>
<p><font color="#0000FF">    answer</font> &quot;You have not entered the number of copies you wish to purchase.&quot; <font color="#980517">with</font> &quot;Oops&quot;</p>
<p><font color="#0000FF">    select</font> the <font color="#FF0000">text</font> of fld &quot;number of copies&quot;</p>
<p>    updateFld</p>
<p><font color="#0000FF">    exit</font> to metaCard</p>
<p><font color="#980517">  end</font> <font color="#980517">if</font></p>
<p><font color="#980517">end</font> checkIfTheFieldsAreEmpty</p>
<p></p>
<p><font color="#980517">on</font> preOpenCard</p>
<p>  <font color="#0000FF">set </font>the <font color="#FF0000">title </font>of this stack to localiseGetDisplayValue<font color="#000000">(&quot;tttt.title.orderform&quot;)</font></p>
<p>  <font color="#0000FF">set</font> the <font color="#FF0000">hilite</font> of btn &quot;VAT&quot; to false</p>
<p>  <font color="#980517">if</font> fld &quot;number of copies&quot; is 1 <font color="#980517">then</font></p>
<p>    <font color="#980517">if</font> the <font color="#F88017">seconds</font> &lt; 909878399 <font color="#980517">then</font></p>
<p>      <font color="#0000FF">put</font> &quot;&pound;16.95&quot; into fld &quot;total&quot;</p>
<p>    <font color="#980517">else</font></p>
<p>      <font color="#0000FF">put</font> &quot;&pound;16.95&quot; into fld &quot;total&quot;</p>
<p>    <font color="#980517">end</font> <font color="#980517">if</font></p>
<p>  <font color="#980517">end</font> <font color="#980517">if</font></p>
<p><font color="#980517">end</font> preOpenCard</p>
<p></p>
<p><font color="#980517">on</font> returnInField</p>
<p><font color="#980517">end</font> returnInField</p>
<p></p>
<p><font color="#980517">on</font> enterInField</p>
<p><font color="#980517">end</font> enterInField</p>    5    (  ,  /    +    4  $   Standard Background  i      )_   ssrcoll  972vsrcoll  972cTop  -4hsrcoll  972tTop  -4 cREVGeneral    revUniqueID  
1118755680400   Background pattern B
       W   cTop  0tTop  0                           cREVGeneral    revUniqueID  
1118755680401	   
   title 
  -       | 4   cTop  12tTop  12cTag  title.order       cREVGeneral    revUniqueID  
1118755680403     Forma d'ordine   (    K        ZX"   cTop  90tTop  90    cREVGeneral    revUniqueID  
1118755680432  + Close ep =on mouseUp
  save this stack
  close this stack
end mouseUp
        $   cTop  524tTop  524cTag  action.close Chiudi           cREVGeneral    revUniqueID  
1118755680436	       , New Button B
        ~ \   cTop  0tTop  0             :              cREVGeneral    revUniqueID  
1118755680433	   	     
  /  &
        8d ,   cTop  56tTop  56cTag  infoOrder.pleaseScroll       cREVGeneral    
bookmarks   revUniqueID  
1118755680434handlerList   scriptSelection  char 1 to 0prevHandler   tempScript  <p></p>script      *Scendi per continuare il modulo d'ordine.               	Print... epon mouseUp
  checkIfTheFieldsAreEmpty
  put "Please post this form to: Runtime Revolution Ltd, 15-19 York Place, Edinburgh, Scotland, EH1 3EB." into tText
  if the platform is "MacOS" then put "MACTTTT3.3" into tOrderCode
  else put "PCTTTT3.3" into tOrderCode
  put cr & "Order code" && tOrderCode && the platform && the systemVersion after tText
  put cr & "email=" & fld "email" after tText
  put cr & "copies=" & fld "number of copies" after tText
  put cr & "total=" & fld "total" after tText
  put cr & "eu="& the hilite of btn "VAT" after tText
  put cr & "realname=" & fld "name" after tText
  put cr & "name=" & fld "name" after tText
  put cr & "emailaddress=" & fld "email" after tText
  put cr & "street=" & fld "street" after tText
  put cr & "city=" & fld "city" after tText
  put cr & "state=" & fld "state" after tText
  put cr & "postcode=" & fld "post code" after tText
  put cr & "country=" & fld "country" after tText
  put cr & "phone=" & fld "phone" after tText
  put cr & "comments=" & fld "comments" after tText
  --answer "You are about to purchase " & fld "number of copies" & " copies for " & fld "total" & ".  Please confirm that this is correct." with "Cancel" or "Print it"
  --if it is "cancel" then exit mouseUp
  open inv stack "tttt print"
  put tText into fld 1of stack "tttt print"
  print stack "tttt print"
  close stack "tttt print"
  answer "Thanks for sending your registration."
  if there is a btn "close" then click at the loc of btn "close"
end mouseUp
         $   cTop  968tTop  968cTag  action.print Copia           cREVGeneral    scriptChecksum  gF2BR_;
bookmarks   revUniqueID  
1118755680435handlerList  mouseUptempScript   prevHandler  mouseUpscriptSelection  char 1499 to 1498script 	<p>on mouseUp</p>
<p>  checkIfTheFieldsAreEmpty</p>
<p>  <font color="#0000FF">put</font> &quot;Please post this form to: Runtime Revolution Ltd, 15-19 York Place, Edinburgh, Scotland, EH1 3EB.&quot; into tText</p>
<p>  <font color="#980517">if</font> the <font color="#F88017">platform</font> is &quot;MacOS&quot; <font color="#980517">then</font> <font color="#0000FF">put</font> &quot;MACTTTT3.3&quot; into tOrderCode</p>
<p>  <font color="#980517">else</font> <font color="#0000FF">put</font> &quot;PCTTTT3.3&quot; into tOrderCode</p>
<p>  put cr &amp; &quot;Order code&quot; &amp;&amp; tOrderCode &amp;&amp; the platform &amp;&amp; the systemVersion after tText</p>
<p>  put cr &amp; &quot;email=&quot; &amp; fld &quot;email&quot; after tText</p>
<p>  put cr &amp; &quot;copies=&quot; &amp; fld &quot;number of copies&quot; after tText</p>
<p>  put cr &amp; &quot;total=&quot; &amp; fld &quot;total&quot; after tText</p>
<p>  put cr &amp; &quot;eu=&quot;&amp; the hilite of btn &quot;VAT&quot; after tText</p>
<p>  put cr &amp; &quot;realname=&quot; &amp; fld &quot;name&quot; after tText</p>
<p>  put cr &amp; &quot;name=&quot; &amp; fld &quot;name&quot; after tText</p>
<p>  put cr &amp; &quot;emailaddress=&quot; &amp; fld &quot;email&quot; after tText</p>
<p>  put cr &amp; &quot;street=&quot; &amp; fld &quot;street&quot; after tText</p>
<p>  put cr &amp; &quot;city=&quot; &amp; fld &quot;city&quot; after tText</p>
<p>  put cr &amp; &quot;state=&quot; &amp; fld &quot;state&quot; after tText</p>
<p>  put cr &amp; &quot;postcode=&quot; &amp; fld &quot;post code&quot; after tText</p>
<p>  put cr &amp; &quot;country=&quot; &amp; fld &quot;country&quot; after tText</p>
<p>  put cr &amp; &quot;phone=&quot; &amp; fld &quot;phone&quot; after tText</p>
<p>  put cr &amp; &quot;comments=&quot; &amp; fld &quot;comments&quot; after tText</p>
<p>  --answer &quot;You are about to purchase &quot; &amp; fld &quot;number of copies&quot; &amp; &quot; copies for &quot; &amp; fld &quot;total&quot; &amp; &quot;.  Please confirm that this is correct.&quot; with &quot;Cancel&quot; or &quot;Print it&quot;</p>
<p>  --if it is &quot;cancel&quot; then exit mouseUp</p>
<p>  open inv stack &quot;tttt print&quot;</p>
<p>  put tText into fld 1of stack &quot;tttt print&quot;</p>
<p>  print stack &quot;tttt print&quot;</p>
<p>  close stack &quot;tttt print&quot;</p>
<p>  answer &quot;Thanks for sending your registration.&quot;</p>
<p>  if there is a btn &quot;close&quot; then click at the loc of btn &quot;close&quot;</p>
<p>end mouseUp</p>
<p></p>	     
     	`      X ^   cTop  861tTop  861cTag  infoOrder.pleaseNote       cREVGeneral    
bookmarks   revUniqueID  
1118755680437handlerList   scriptSelection  char 1 to 0prevHandler   tempScript   script        Nota che questo modulo  solo per le registrazioni postali. Le transizioni delle carte di credito sono accettate solo attraverso il nostro sistema di pagamento online che trovi sul nostro sito.    Se sei interessato a pi copie, visita il nostro sito per un scoprire i nostri prezzi, o contatta tenthumbs@runrev.com per un preventivo.    ]Quando hai finito di compilare questo modulo stampalo e spediscicelo assieme al tuo assegno.    YIl nostro indirizzo : Runtime Revolution Ltd, 15-19 York Place, Edinburgh, EH1 3EB, UK.    _Nota che le informazioni che ci fornisci verranno trattate con la pi stretta confidenzialit.   1    	`    @ _  \ 
  4 hidden  !`       |            cREVGeneral    revUniqueID  
1118755680438  recipient=kevin@xworlds.com&subject=Ten+Thumbs+Payment&email=beatTheFish@xworldsdamnation.com&copies=1&total=%2419.95&realname=BeatFish&name=BeatFish&emailaddress=beatTheFish@xworldsdamnation.com&street=116%2F5+Moredun+Pk+Gdns&city=Edinburgh&state=EH17+7LH&postcode=Scotland&country=Outer+mongolia&phone=&cardtype=VISA&cardno=IyEvYmluL3NoCiMgTWV0YUNhcmQgMi4xIHN0YWNrCiMgVGhlIGZvbGxvd2luZyBpcyBub3Qg%0D%0AQVNDSUkgdGV4dCwKIyBzbyBub3cgd291bGQgYmUgYSBnb29kIHRpbWUgdG8gcSBvdXQgb2Yg%0D%0AbW9yZQwKZXhlYyBtYyAkMCAiJEAiCgUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF%0D%0ABQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF%0D%0ABQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQIFBRYFClVCV0JFWEpL%0D%0AVwUFCWh6aGZqaW9xBQUFA%2BoFEglgTMWhXlNZEqfXv6GMV5rUBSEFAXAFCGGpGCJYw%2FEFBQUF%0D%0ABQUFAaEBIQEFAQUFBQUFBSAFIP%2F%2F%2F%2F8FBQUFBAUFA%2BoFBQUFCUAFBQUFBQUFBQUFAQUBBQUF%0D%0A&expiry=235235&comments=A+comment      
  5 dropshadow 
  -  222222     | 4   cTop  12tTop  12cTag  title.order       cREVGeneral    revUniqueID  
1118755680402     Forma d'ordine   $ form i        [`!   vsrcoll  972cTop  91tTop  91 cREVGeneral    
bookmarks   revUniqueID  
1118755680404handlerList   scriptSelection  char 1 to 0prevHandler   tempScript   script     &    	`      \ [ !
    	         D    cTop  140tTop  140cTag  infoOrder.name       cREVGeneral    revUniqueID  
1118755680405     Nome: 
    	          8   cTop  172tTop  172cTag  infoOrder.street       cREVGeneral    revUniqueID  
1118755680406     Numero e Via: 
    	             cTop  228tTop  228cTag  infoOrder.city       cREVGeneral    revUniqueID  
1118755680407     Paese/Citt 
    	            cTop  260tTop  260cTag  infoOrder.state       cREVGeneral    revUniqueID  
1118755680408     Stato 
   name  )p Y
on exitField
  select empty
end exitfield

on leaveField
  select empty
end leaveField
        h     cTop  140tTop  140       cREVGeneral    revUniqueID  
1118755680409         
   street  )`       h 8   cTop  172tTop  172       cREVGeneral    revUniqueID  
1118755680410         
   city  )`       h     cTop  228tTop  228       cREVGeneral    revUniqueID  
1118755680411         
   state  )`      h     cTop  260tTop  260       cREVGeneral    revUniqueID  
1118755680412         
   
post code  )`      $h     cTop  292tTop  292       cREVGeneral    revUniqueID  
1118755680413    
   country  )`      Dh     cTop  324tTop  324       cREVGeneral    revUniqueID  
1118755680414    
   phone  )`      dh     cTop  356tTop  356       cREVGeneral    revUniqueID  
1118755680415    
   email  )`      h     cTop  388tTop  388       cREVGeneral    revUniqueID  
1118755680416    
   number of copies  )pon keyDown theKey
  if theKey is not a number then
    beep
    exit keyDown
  end if
  pass keyDown
end keyDown

on backSpaceKey
  send "keyUp" to me in 20 milliseconds
  pass backSpaceKey
end backSpaceKey

on keyUp
  set the numberFormat to "00.00"
  put me into tNumber
  switch
  case tNumber is 1
    put "16.95" into fld "total"
    break
  case tNumber < 10
    put "" & "16.95" * tNumber into fld "total"
    break
  case tNumber is 10
    put "130" into fld "total"
    break
  case tNumber <= 25
    put "230" into fld "total"
    break
  case tNumber <= 50
    put "330" into fld "total"
    break
  case tNumber <= 100
    put "499" into fld "total"
    break
  default
    put tNumber - 100 into tRemainder
    put "665" into fld "total"
    break
  end switch
  if the hilite of btn "VAT" then
    put char 2 to 20 of fld "total" into tVar
    put "$" & tVar/100 * 17.5+ tVar into fld "total"
  end if
end keyup

on exitField
  select empty
end exitfield

on leaveField
  select empty
end leaveField
     @       cTop  476tTop  476       cREVGeneral    scriptChecksum  kԧk
bookmarks   revUniqueID  
1118755680417handlerList  /keyDown
backSpaceKey
keyUp
exitField
leaveFieldtempScript   prevHandler  	exitFieldscriptSelection  char 947 to 946script 
S<p><font color="#980517">on</font> keyDown theKey</p>
<p>  <font color="#980517">if</font> theKey is not a <font color="#FF0000">number</font> <font color="#980517">then</font></p>
<p>    <font color="#0000FF">beep</font></p>
<p>    <font color="#0000FF">exit</font> keyDown</p>
<p>  <font color="#980517">end</font> <font color="#980517">if</font></p>
<p>  <font color="#0000FF">pass</font> keyDown</p>
<p><font color="#980517">end</font> keyDown</p>
<p></p>
<p><font color="#980517">on</font> backSpaceKey</p>
<p>  <font color="#0000FF">send</font> &quot;keyUp&quot; to <font color="#F88017">me</font> in 20 <font color="#F88017">milliseconds</font></p>
<p>  <font color="#0000FF">pass</font> backSpaceKey</p>
<p><font color="#980517">end</font> backSpaceKey</p>
<p></p>
<p><font color="#980517">on</font> keyUp</p>
<p>  <font color="#0000FF">set</font> the <font color="#FF0000">numberFormat</font> to &quot;00.00&quot;</p>
<p>  <font color="#0000FF">put</font> <font color="#F88017">me</font> into tNumber</p>
<p>  <font color="#980517">switch</font></p>
<p>  <font color="#980517">case</font> tNumber is 1</p>
<p>    <font color="#0000FF">put</font> &quot;&pound;16.95&quot; into fld &quot;total&quot;</p>
<p>    <font color="#0000FF">break</font></p>
<p>  <font color="#980517">case</font> tNumber &lt; 10</p>
<p>    <font color="#0000FF">put</font> &quot;&pound;&quot; &amp; &quot;16.95&quot; * tNumber into fld &quot;total&quot;</p>
<p>    <font color="#0000FF">break</font></p>
<p>  <font color="#980517">case</font> tNumber is 10</p>
<p>    <font color="#0000FF">put</font> &quot;&pound;130&quot; into fld &quot;total&quot;</p>
<p>    <font color="#0000FF">break</font></p>
<p>  <font color="#980517">case</font> tNumber &lt;= 25</p>
<p>    <font color="#0000FF">put</font> &quot;&pound;230&quot; into fld &quot;total&quot;</p>
<p>    <font color="#0000FF">break</font></p>
<p>  <font color="#980517">case</font> tNumber &lt;= 50</p>
<p>    <font color="#0000FF">put</font> &quot;&pound;330&quot; into fld &quot;total&quot;</p>
<p>    <font color="#0000FF">break</font></p>
<p>  <font color="#980517">case</font> tNumber &lt;= 100</p>
<p>    <font color="#0000FF">put</font> &quot;&pound;499&quot; into fld &quot;total&quot;</p>
<p>    <font color="#0000FF">break</font></p>
<p>  <font color="#FF0000">default</font></p>
<p>    <font color="#0000FF">put</font> tNumber - 100 into tRemainder</p>
<p>    <font color="#0000FF">put</font> &quot;&pound;665&quot; into fld &quot;total&quot;</p>
<p>    <font color="#0000FF">break</font></p>
<p>  <font color="#980517">end</font> <font color="#980517">switch</font></p>
<p>  <font color="#980517">if</font> the <font color="#FF0000">hilite</font> of btn &quot;VAT&quot; <font color="#980517">then</font></p>
<p>    <font color="#0000FF">put</font> char 2 to 20 of fld &quot;total&quot; into tVar</p>
<p>    <font color="#0000FF">put</font> &quot;$&quot; &amp; tVar/100 * 17.5+ tVar into fld &quot;total&quot;</p>
<p>  <font color="#980517">end</font> <font color="#980517">if</font></p>
<p><font color="#980517">end</font> keyup</p>
<p></p>
<p><font color="#980517">on</font> exitField</p>
<p>  <font color="#0000FF">select</font> empty</p>
<p><font color="#980517">end</font> exitfield</p>
<p></p>
<p><font color="#980517">on</font> leaveField</p>
<p>  <font color="#0000FF">select</font> empty</p>
<p><font color="#980517">end</font> leaveField</p>
<p></p>      ' VAT B on mouseUp
  global gStudentName
  if gStudentName is empty then play "checkbox"
  else if propertyGet("soundOn") then play "checkbox"
  send "keyUp" to fld "number of copies"
end mouseUp
         .   cTop  517tTop  517                           cREVGeneral    scriptChecksum  1C ~N
bookmarks   revUniqueID  
1118755680418handlerList  mouseUptempScript   prevHandler  mouseUpscriptSelection  
char 33 to 32script <p><font color="#980517">on</font> mouseUp</p>
<p>  <font color="#0000FF">global </font>gStudentName</p>
<p>  if gStudentName is empty then play &quot;checkbox&quot;</p>
<p>  <font color="#980517">else</font> <font color="#980517">if</font> propertyGet<font color="#000000">(&quot;soundOn&quot;)</font> <font color="#980517">then</font> <font color="#0000FF">play</font> &quot;checkbox&quot;</p>
<p>  send &quot;keyUp&quot; to fld &quot;number of copies&quot;</p>
<p>end mouseUp</p>
<p></p>	     
   	comments  )p Y
on exitField
  select empty
end exitfield

on leaveField
  select empty
end leaveField
       i0 p   cTop  737tTop  737       cREVGeneral    revUniqueID  
1118755680419          	`    @ ;j  n 
     	       $     cTop  292tTop  292cTag  
infoOrder.zip       cREVGeneral    revUniqueID  
1118755680420     Codice postale 
    	       D     cTop  324tTop  324cTag  infoOrder.country       cREVGeneral    revUniqueID  
1118755680421     Paese 
    	       d     cTop  356tTop  356cTag  infoOrder.phone       cREVGeneral    revUniqueID  
1118755680422     
Telefono: 
    	            cTop  388tTop  388cTag  infoOrder.email       cREVGeneral    revUniqueID  
1118755680423     Email 
  
  	          _    cTop  95tTop  95cTag  infoOrder.yourDetails       cREVGeneral    revUniqueID  
1118755680424     
I Tuoi dati: 
   total 	            cTop  477tTop  477       cREVGeneral    revUniqueID  
1118755680425     00.00 
    	       D     cTop  475tTop  475cTag  infoOrder.total       cREVGeneral    revUniqueID  
1118755680426     totale: 
    	             cTop  440tTop  440cTag  infoOrder.yourPayment       cREVGeneral    revUniqueID  
1118755680427     Le tue opzioni di pagamento 
    	         A    cTop  697tTop  697cTag  infoOrder.comments       cREVGeneral    revUniqueID  
1118755680428     %Commenti o Suggerimenti (opzionale): 
     	             cTop  476tTop  476cTag  infoOrder.copies       cREVGeneral    revUniqueID  
1118755680429     Numeri di copie:   *    C        d    cTop  1024tTop  1024    cREVGeneral    revUniqueID  
1118755680430  2 New Button  @
       H               cREVGeneral    revUniqueID  
1118755680431	   	     
  8 Field 1  )       <$ 8   cTag  infoOrder.euRes       cREVGeneral    revUniqueID  
1078839029845   #Sono residente dell'Unione Europea    tttt print  @      white   B   cStackVersion  2.0         "Ten Thumbs Typing Tutor - Welcome          U Tahoma    	card1002   	@          B     cREVGeneral    
bookmarks   handlerList   tempScript   prevHandler   script     
     (@                   bPlease post this form to: Runtime Revolution Ltd, 15-19 York Place, Edinburgh, Scotland, EH1 3EB.  #Order code MACTTTT3.3 MacOS 10.3.9  email=kevin@Runrev.com  	copies=1  
total=$19.92  eu=true  realname=test2  name=test2  emailaddress=kevin@Runrev.com  street=aoh  city=t  state=t  postcode=t  
country=h  	phone=th  
comments=       